(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     35361,       1283]
NotebookOptionsPosition[     25744,        978]
NotebookOutlinePosition[     31189,       1133]
CellTagsIndexPosition[     31068,       1127]
WindowTitle->SimplifyPolyLog
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"Nielsen\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/Nielsen"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/SimplifyPolyLog\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/SimplifyPolyLog"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                "http://reference.wolfram.com/language/FeynCalc/ref/\
SimplifyPolyLog.html"], StandardForm]], "Input", TextClipboardType -> 
              "PlainText"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$235679], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/SimplifyPolyLog", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["SimplifyPolyLog", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"SimplifyPolyLog", "[", "y", "]"}]], "InlineFormula"],
     " \[LineSeparator]",
     "performs several simplifications assuming that the variables occuring \
in the Log and PolyLog functions are between 0 and 1. "
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->243207112],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->277238363],

Cell[BoxData[
 RowBox[{
  RowBox[{"sip", "[", "y_", "]"}], " ", ":=", " ", 
  RowBox[{"y", " ", "==", " ", 
   RowBox[{"SimplifyPolyLog", "[", "y", "]"}]}]}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[1]:=",
 CellID->258376485],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"2", ",", 
    RowBox[{"1", "/", "x"}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[2]:=",
 CellID->312810151],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"2",FractionBox["1", "x"]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"\[Zeta]", "(", "2", ")"}], "+", 
    TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
     "PolyLog"], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", 
    RowBox[{
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
     RowBox[{"log", "(", "x", ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{476, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"2", ",", "x"}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[3]:=",
 CellID->533586750],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"2","x"},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"\[Zeta]", "(", "2", ")"}], "-", 
    TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
     "PolyLog"], "-", 
    RowBox[{
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{307, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"2", ",", 
    RowBox[{"1", "-", 
     RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[4]:=",
 CellID->1083087116],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"2",RowBox[{"1", "-", 
       SuperscriptBox["x", "2"]}]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", 
    RowBox[{"2", " ", 
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"]}], "-", 
    RowBox[{"2", " ", 
     TemplateBox[{"2",RowBox[{"-", "x"}]},
      "PolyLog"]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"x", "+", "1"}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{456, 21},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"2", ",", 
    RowBox[{"x", "^", "2"}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[5]:=",
 CellID->273399044],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"2",SuperscriptBox["x", "2"]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"\[Zeta]", "(", "2", ")"}]}], "-", 
    RowBox[{"2", " ", 
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"]}], "+", 
    RowBox[{"2", " ", 
     TemplateBox[{"2",RowBox[{"-", "x"}]},
      "PolyLog"]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{434, 21},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[5]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"2", ",", 
    RowBox[{"-", 
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[6]:=",
 CellID->1780815312],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"2",RowBox[{"-", 
       FractionBox["x", 
        RowBox[{"1", "-", "x"}]]}]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", 
    TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
     "PolyLog"], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{463, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[6]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"2", ",", 
    RowBox[{"x", "/", 
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[7]:=",
 CellID->189309767],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"2",FractionBox["x", 
      RowBox[{"x", "-", "1"}]]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"\[Zeta]", "(", "2", ")"}]}], "+", 
    TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
     "PolyLog"], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{452, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[7]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"Nielsen", "[", 
   RowBox[{"1", ",", "2", ",", 
    RowBox[{"-", 
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[8]:=",
 CellID->1734664877],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["S", 
     RowBox[{
      FormBox["1",
       TraditionalForm], 
      FormBox["2",
       TraditionalForm]}]], "(", 
    FormBox[
     RowBox[{"-", 
      FractionBox["x", 
       RowBox[{"1", "-", "x"}]]}],
     TraditionalForm], ")"}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SubscriptBox["S", 
      RowBox[{
       FormBox["1",
        TraditionalForm], 
       FormBox["2",
        TraditionalForm]}]], "(", 
     FormBox["x",
      TraditionalForm], ")"}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     RowBox[{
      SuperscriptBox["log", "3"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{261, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[8]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"3", ",", 
    RowBox[{"-", 
     RowBox[{"1", "/", "x"}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[9]:=",
 CellID->128811971],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"3",RowBox[{"-", 
       FractionBox["1", "x"]}]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    TemplateBox[{"3",RowBox[{"-", "x"}]},
     "PolyLog"], "+", 
    RowBox[{
     RowBox[{"\[Zeta]", "(", "2", ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["log", "3"], "(", "x", ")"}], "6"]}]}], 
  TraditionalForm]], "Output",
 ImageSize->{300, 39},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[9]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"3", ",", 
    RowBox[{"1", "-", "x"}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[10]:=",
 CellID->919109136],

Cell[BoxData[
 FormBox["True", TraditionalForm]], "Output",
 ImageSize->{31, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[10]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"3", ",", 
    RowBox[{"x", "^", "2"}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[11]:=",
 CellID->418960340],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"3",SuperscriptBox["x", "2"]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"4", " ", 
     TemplateBox[{"3",RowBox[{"-", "x"}]},
      "PolyLog"]}], "-", 
    RowBox[{"4", " ", 
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "-", 
    RowBox[{"4", " ", 
     RowBox[{
      SubscriptBox["S", 
       RowBox[{
        FormBox["1",
         TraditionalForm], 
        FormBox["2",
         TraditionalForm]}]], "(", 
      FormBox[
       RowBox[{"1", "-", "x"}],
       TraditionalForm], ")"}]}], "+", 
    RowBox[{"4", " ", 
     RowBox[{"\[Zeta]", "(", "2", ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", "x", ")"}]}], "+", 
    RowBox[{"4", " ", 
     TemplateBox[{"3"},
      "Zeta"]}]}]}], TraditionalForm]], "Output",
 ImageSize->{415, 43},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[11]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"3", ",", 
    RowBox[{"-", 
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[12]:=",
 CellID->1663942518],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"3",RowBox[{"-", 
       FractionBox["x", 
        RowBox[{"1", "-", "x"}]]}]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{"3",RowBox[{"1", "-", "x"}]},
      "PolyLog"]}], "+", 
    RowBox[{
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "+", 
    RowBox[{
     SubscriptBox["S", 
      RowBox[{
       FormBox["1",
        TraditionalForm], 
       FormBox["2",
        TraditionalForm]}]], "(", 
     FormBox[
      RowBox[{"1", "-", "x"}],
      TraditionalForm], ")"}], "+", 
    RowBox[{
     RowBox[{"\[Zeta]", "(", "2", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"\[Zeta]", "(", "2", ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     RowBox[{
      SuperscriptBox["log", "3"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", "x", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{527, 74},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[12]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"3", ",", 
    RowBox[{"1", "-", 
     RowBox[{"1", "/", "x"}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[13]:=",
 CellID->1897345533],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"3",RowBox[{"1", "-", 
       FractionBox["1", "x"]}]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "-", 
    RowBox[{
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     SubscriptBox["S", 
      RowBox[{
       FormBox["1",
        TraditionalForm], 
       FormBox["2",
        TraditionalForm]}]], "(", 
     FormBox[
      RowBox[{"1", "-", "x"}],
      TraditionalForm], ")"}], "+", 
    RowBox[{
     SubscriptBox["S", 
      RowBox[{
       FormBox["1",
        TraditionalForm], 
       FormBox["2",
        TraditionalForm]}]], "(", 
     FormBox["x",
      TraditionalForm], ")"}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["log", "3"], "(", "x", ")"}], "6"], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}]}], "-", 
    TemplateBox[{"3"},
     "Zeta"]}]}], TraditionalForm]], "Output",
 ImageSize->{424, 80},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[13]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"PolyLog", "[", 
   RowBox[{"4", ",", 
    RowBox[{"-", 
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x"}], ")"}]}]}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[14]:=",
 CellID->2143666635],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"4",RowBox[{"-", 
       FractionBox["x", 
        RowBox[{"1", "-", "x"}]]}]},
    "PolyLog"], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{"4","x"},
      "PolyLog"]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     TemplateBox[{"2",RowBox[{"1", "-", "x"}]},
      "PolyLog"], " ", 
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     SubscriptBox["S", 
      RowBox[{
       FormBox["1",
        TraditionalForm], 
       FormBox["3",
        TraditionalForm]}]], "(", 
     FormBox["x",
      TraditionalForm], ")"}], "+", 
    RowBox[{
     SubscriptBox["S", 
      RowBox[{
       FormBox["2",
        TraditionalForm], 
       FormBox["2",
        TraditionalForm]}]], "(", 
     FormBox["x",
      TraditionalForm], ")"}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", 
       RowBox[{
        FormBox["1",
         TraditionalForm], 
        FormBox["2",
         TraditionalForm]}]], "(", 
      FormBox[
       RowBox[{"1", "-", "x"}],
       TraditionalForm], ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", 
       RowBox[{
        FormBox["1",
         TraditionalForm], 
        FormBox["2",
         TraditionalForm]}]], "(", 
      FormBox["x",
       TraditionalForm], ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"\[Zeta]", "(", "2", ")"}], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"\[Zeta]", "(", "2", ")"}], " ", 
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     TemplateBox[{"3"},
      "Zeta"], " ", 
     RowBox[{"log", "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     RowBox[{
      SuperscriptBox["log", "4"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"log", "(", "x", ")"}], " ", 
     RowBox[{
      SuperscriptBox["log", "3"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", "x", ")"}], " ", 
     RowBox[{
      SuperscriptBox["log", "2"], "(", 
      RowBox[{"1", "-", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{544, 139},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[14]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"Log", "[", 
   RowBox[{"a", "+", 
    RowBox[{"b", "/", "c"}]}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[15]:=",
 CellID->1854005981],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"log", "(", 
    RowBox[{"a", "+", 
     FractionBox["b", "c"]}], ")"}], "\[LongEqual]", 
   RowBox[{"log", "(", 
    FractionBox[
     RowBox[{
      RowBox[{"a", " ", "c"}], "+", "b"}], "c"], ")"}]}], 
  TraditionalForm]], "Output",
 ImageSize->{187, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[15]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"Log", "[", 
   RowBox[{"1", "/", "x"}], "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[16]:=",
 CellID->1150742435],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"log", "(", 
    FractionBox["1", "x"], ")"}], "\[LongEqual]", 
   RowBox[{"-", 
    RowBox[{"log", "(", "x", ")"}]}]}], TraditionalForm]], "Output",
 ImageSize->{125, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[16]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"ArcTanh", "[", "x", "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[17]:=",
 CellID->1515894413],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["tanh", 
     RowBox[{"-", "1"}]], "(", "x", ")"}], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"log", "(", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"x", "+", "1"}], 
       RowBox[{"1", "-", "x"}]]}], ")"}]}]}], TraditionalForm]], "Output",
 ImageSize->{184, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[17]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"ArcSinh", "[", "x", "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[18]:=",
 CellID->1072815012],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["sinh", 
     RowBox[{"-", "1"}]], "(", "x", ")"}], "\[LongEqual]", 
   RowBox[{"log", "(", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], ")"}]}], 
  TraditionalForm]], "Output",
 ImageSize->{208, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[18]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sip", "[", 
  RowBox[{"ArcCosh", "[", "x", "]"}], "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[19]:=",
 CellID->1622675607],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["cosh", 
     RowBox[{"-", "1"}]], "(", "x", ")"}], "\[LongEqual]", 
   RowBox[{"log", "(", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "-", "1"}]], "+", "x"}], ")"}]}], 
  TraditionalForm]], "Output",
 ImageSize->{210, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"SimplifyPolyLog",
 CellLabel->"Out[19]="]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "sip", "]"}]], "Input",
 CellTags->"SimplifyPolyLog",
 CellLabel->"In[20]:=",
 CellID->1270078266]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[{
 StyleBox[ButtonBox["Nielsen",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/Nielsen",
  ButtonNote->"Nielsen"],
  FontFamily->"Verdana"],
 "."
}], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"SimplifyPolyLog",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 10, 32.018223}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "SimplifyPolyLog[y] performs several simplifications assuming that the \
variables occuring in the Log and PolyLog functions are between 0 and 1. ", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "SimplifyPolyLog", 
    "titlemodifier" -> "", "windowtitle" -> "SimplifyPolyLog", "type" -> 
    "Symbol", "uri" -> "FeynCalc/ref/SimplifyPolyLog"}, 
  "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[4415, 127, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->243207112]},
 "SimplifyPolyLog"->{
  Cell[5025, 154, 241, 7, 29, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->258376485],
  Cell[5291, 165, 212, 7, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->312810151],
  Cell[5506, 174, 749, 23, 57, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[6292, 202, 187, 6, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->533586750],
  Cell[6482, 210, 517, 17, 37, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[7036, 232, 239, 8, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1083087116],
  Cell[7278, 242, 716, 23, 42, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[8031, 270, 212, 7, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->273399044],
  Cell[8246, 279, 693, 22, 42, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[8976, 306, 289, 10, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1780815312],
  Cell[9268, 318, 755, 25, 56, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[10060, 348, 265, 9, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->189309767],
  Cell[10328, 359, 730, 24, 56, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[11095, 388, 299, 10, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1734664877],
  Cell[11397, 400, 855, 34, 56, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[12289, 439, 233, 8, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->128811971],
  Cell[12525, 449, 581, 20, 60, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[13143, 474, 213, 7, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->919109136],
  Cell[13359, 483, 200, 6, 35, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[13596, 494, 213, 7, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->418960340],
  Cell[13812, 503, 1149, 39, 64, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[14998, 547, 290, 10, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1663942518],
  Cell[15291, 559, 1566, 53, 95, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[16894, 617, 240, 8, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1897345533],
  Cell[17137, 627, 1379, 50, 101, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[18553, 682, 290, 10, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->2143666635],
  Cell[18846, 694, 2943, 105, 160, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[21826, 804, 210, 7, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1854005981],
  Cell[22039, 813, 422, 15, 57, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[22498, 833, 185, 6, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1150742435],
  Cell[22686, 841, 337, 11, 57, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[23060, 857, 165, 5, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1515894413],
  Cell[23228, 864, 492, 17, 57, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[23757, 886, 165, 5, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1072815012],
  Cell[23925, 893, 441, 16, 54, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[24403, 914, 165, 5, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1622675607],
  Cell[24571, 921, 441, 16, 54, "Output",
   CellTags->"SimplifyPolyLog"],
  Cell[25027, 940, 135, 4, 27, "Input",
   CellTags->"SimplifyPolyLog",
   CellID->1270078266]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 27641, 1023},
 {"SimplifyPolyLog", 27783, 1027}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 3029, 74, 53, "AnchorBarGrid",
 CellID->1],
Cell[3619, 97, 292, 11, 45, "ObjectNameGrid"],
Cell[3914, 110, 476, 13, 101, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[4415, 127, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->243207112],
Cell[CellGroupData[{
Cell[4827, 146, 195, 6, 26, "ExampleSection",
 CellID->277238363],
Cell[5025, 154, 241, 7, 29, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->258376485],
Cell[CellGroupData[{
Cell[5291, 165, 212, 7, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->312810151],
Cell[5506, 174, 749, 23, 57, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6292, 202, 187, 6, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->533586750],
Cell[6482, 210, 517, 17, 37, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7036, 232, 239, 8, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1083087116],
Cell[7278, 242, 716, 23, 42, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8031, 270, 212, 7, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->273399044],
Cell[8246, 279, 693, 22, 42, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8976, 306, 289, 10, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1780815312],
Cell[9268, 318, 755, 25, 56, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10060, 348, 265, 9, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->189309767],
Cell[10328, 359, 730, 24, 56, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11095, 388, 299, 10, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1734664877],
Cell[11397, 400, 855, 34, 56, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12289, 439, 233, 8, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->128811971],
Cell[12525, 449, 581, 20, 60, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13143, 474, 213, 7, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->919109136],
Cell[13359, 483, 200, 6, 35, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13596, 494, 213, 7, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->418960340],
Cell[13812, 503, 1149, 39, 64, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14998, 547, 290, 10, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1663942518],
Cell[15291, 559, 1566, 53, 95, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16894, 617, 240, 8, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1897345533],
Cell[17137, 627, 1379, 50, 101, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18553, 682, 290, 10, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->2143666635],
Cell[18846, 694, 2943, 105, 160, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21826, 804, 210, 7, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1854005981],
Cell[22039, 813, 422, 15, 57, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22498, 833, 185, 6, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1150742435],
Cell[22686, 841, 337, 11, 57, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23060, 857, 165, 5, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1515894413],
Cell[23228, 864, 492, 17, 57, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23757, 886, 165, 5, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1072815012],
Cell[23925, 893, 441, 16, 54, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24403, 914, 165, 5, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1622675607],
Cell[24571, 921, 441, 16, 54, "Output",
 CellTags->"SimplifyPolyLog"]
}, Open  ]],
Cell[25027, 940, 135, 4, 27, "Input",
 CellTags->"SimplifyPolyLog",
 CellID->1270078266]
}, Open  ]],
Cell[25177, 947, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25245, 952, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[25518, 966, 184, 7, 56, "SeeAlso"]
}, Open  ]],
Cell[25717, 976, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

